<%

Function detectar_fake(id_usuario)
		
		DIM rsF, rsFa, ip, id_usuario2
			
		str = "Select ip FROM usuarios where id="&id_usuario
    	Set rsF = conexao_geral.Execute(str)			
		
		If not rsF.eof then
		
			ip = rsF("ip")
		
			str = "Select id FROM usuarios where ip='"&ip&"' AND id<>"&id_usuario
			Set rsF = conexao_geral.Execute(str)				
			
			DO While not rsF.eof
			
				id_usuario2 = rsF("id")
			
				str = "Select id_usuario_1 FROM usuarios_fakes where (id_usuario_1="&id_usuario&" AND id_usuario_2="&id_usuario2&") OR (id_usuario_1="&id_usuario2&" AND id_usuario_2="&id_usuario&")"
				Set rsFa = conexao_geral.Execute(str)
				
				If rsFa.eof then
				
					str = "INSERT into usuarios_fakes "
					str = str & "(id_usuario_1, id_usuario_2) "
					str = str & "VALUES ('" & id_usuario & "', "
					str = str & "'" & id_usuario2 & "')"						
					Set rsI = conexao_geral.Execute(str)				
				
				End If
			
			rsF.MoveNext
			Loop
		
		End If

End Function

%>
